home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / RGASM.RAR / ASMCODE.EXE / CHAPT12 / MARY.BAS < prev    next >
Encoding:
BASIC Source File  |  1993-05-10  |  491 b   |  22 lines
  1. REM Program Mary ( Chapter 12 )
  2.  
  3. DECLARE SUB QSound (fr AS INTEGER, dur AS INTEGER)
  4.  
  5. DEFINT A - Z
  6.  
  7. FOR i = 1 TO 26
  8.    durat = 500
  9.    IF (i < 7) OR (i > 7 AND i < 10) OR (i > 10 AND i < 13) THEN durat = 250
  10.    IF i > 13 THEN durat = 250
  11.    IF i = 26 THEN durat = 1000
  12.    READ freq
  13.    Call QSound (freq, durat)
  14. NEXT i
  15. STOP
  16.     
  17. DATA 330, 294, 262, 294, 330, 330, 330, 294, 294, 294
  18. DATA 330, 392, 392, 330, 294, 262, 294, 330, 330, 330, 330
  19. DATA 294, 294, 330, 294, 262
  20. END
  21.  
  22.